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SERTES-III 8086/8087/8088 MACRO ASSEMBLER V1.1 ASSEMSLY OF MODULE RANDOM 


O3JECT MODULE PLACED IN 

ASSEMBLER INVOKED BY: ASM26.86 
LOC OBJ INE 
4 

Pa 

5 

= 4 

= 4 5 

="] é 

=1 7 

= g 

= 9 

= 19 

11 

Le 

13 

14 

gts 

ela 16 
ee 17 
18 

19 

Sees 20 
24 

22 

Hog <= R 23 
24 

25 

26 

27 

=‘ 28 

= 29 

=4 30 

0000 =1 al 
0001 = 32 
0002 = ie 
0005 =1 34 
0004 = 35 
0005 =4 36 
0006 =1 Sf 
OOAOD =1 36 
0080 = oe 
=1 40 

1 41 

= 42 

1 5 

0003 = 44 
00D2 =1 45 
0001 =1 46 
0000 =1 47 

1 48 

0000 =1 49 
0040 4 50 


7F1:RANDOM.OBJ 


2FITSRANDOM.ZA&6 PRINTC:F1:RANDOM.LST) DEBUG 


+1 


+1 


SOURCE 


STILTS 
NAME 


C*°CQ3Random 


Subroutina for 550 11/20/81 15:00’) 


RANDOM 


include C:f1:cpyrt.adca) 


: 
7 

; /x Intel Corporation Proprietary Information. 

; This listing is supplied under the terms of a 

? license agrement with Intel Corporaton and 

? may not be copied nor disclosed except in 

; accordance with the terms of that agreement. */ 

; : 

; 

+ This routine is a duplicate of the "Random" call in KAOS,s, provided 
, here because there’s no room left in ROM for a "cq" version. 
OSROUP GROUP DATA 

DATA SEGMENT PUSLIC ’DATA’ 

DATA ENDS 

CGROUP GROUP CODE 

CODE SEGMENT PUBLIC ’CODE’ 

ASSUME CS:CGROUP,DS:O0GROUP 

OGRP- OW DGROUP 


tA 
. 
7 
* 


Define Post addresses for iS&C 550 


? 
SINCLUDE <Cl47=5 PORTS <ING) 


; CONTOL PORTS 

SET_TXSRT EQU OOOH 

RESET_TXSRT EQU 001H 

SET_RXAV1 EQU OC2H 

SET_RXAV2 EQU O03H 

SET_RXAV3 EQU 004H 

RESET_ERROR EGU OO5H 

RESET_CHANNEL_COUNT=ER  EQU O06H 

SET_SYS EQU OAQH 

SET_LOC EQU OB0H 

; PIT VALUES 

PITCMD ZQU O03H PIT COMMAND PORT 

PTT. 3CK EQU O02H PIT BSACKOFF TIMER 
PIT_RTC ZQU OD1H #PIT REAL-TIME CLOCK PORT 
PIT_ALC EQU ODOH ;PIT ALARM-CLOCK PORT 
LATCH _RTC EQU OOH LATCH REAL-TIME CLOCK VALUE 
LATCH_ALC z FLATCH ALARM=CLOCK VALUE 


= QU 40H 
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LOC OBJ 


LINE SOURCE 
=1 S| 
=1 52 
1 53 ; DMA VALUES 
1 54 
00C8 =4 55 DMACMO EQU OC8H 7DMA COMMAND AND STATUS PORT 
00c9 1 56 DMAREQ EQU OC9H 7OMA REQUEST PORT 
OOCA 1 57 OMANSK3 EQU OCAH 7DMA MASK BIT PORT 
ooca 1 53 DMAMOD= EQU OCSH 7DMA MODE PORT 
QOCC = 59 OMABPTR EQU OCCH 7DMNA BYTE POINTER PORT 
OOCD =4 50 - DMACLR EQU OCOH : 72? CTMP & CLEAR??) 
OOCF =1 61 DMAMASK = QU OCFH 7DMA MASK PORT 
1 62 
O0CcOo 4 63 CHOADDR EQU OCOH CHANNEL O ADDRESS PORT 
00C1 =4 $4 CHOWC EQU OC1H *;CHANNEL O WORD COUNT PORT 
o0c2 1 65 CH1A00R EQU OC2H *CHANNEL 1 ADDRESS PORT 
00Cc2 1 66 CHIWC EQU OC3H ;CHANNEL 1 WORD COUNT PORT 
00Cc4 67 CH2ADDR EQU OC4H CHANNEL 2 ADDRESS PORT 
cocs =4 68 CH2WC EQU OC5H CHANNEL 2 WORD COUNT PORT 
00C6 = 69 CH3A0DR EQU OC6H *CHANNEL 3 ADDRESS PORT 
O0C7 =1 70 CH3WC EQU OC7H CHANNEL 3 WORD COUNT PORT 
=] 71 
=1 72 
= 73 ; PIO VALUES 
= 74 
OOE3 =1 75 PIOCMD EQU QE3H PTO COMMAND PORT (CHECK: F3?) 
OOED = 76 PIO’ EQU OEOH 7PIO PORT A 
OOE1 = 77 PIOB EQU QE1H 7PIO PORT B 
OOE2 =4 78 PIOC EQU OE2H ,PIO PORT C 
= 79 
OOF3 = 80 PIOCLR EQU 111100118  ZsCLEAR SERDES 
002A | = 81 PIOSEN EQU 001010108 *SERIAL ENABLE 
0022 = 82 PIOSENP EQU 001000108 PROMISCUOUS SERTAL ENABLE 
COED = 83 PIOREAD EQU 111000008 7READ ADDRESS COMMAND 
= 84 
= a5 
=1 86 ; PIC VALUES 
=4 &7 
OOFO = 88 PICCMD EQU OFQOH 7PTC COMMAND PORT 
OOFO = ag PICDATA — EQU OFOH — -PIC DATA PORT 
OOF1 =A] $0 PICMASK EQU OF1H >PIC MASK PORT 
= 314 
0020 = 92 FQI_PIC EQU 20H 7PIC END-OF-INTERRUPT COMMAND 
0060 =4 93 SECI_PIC EQ 60H | PIC SELECTIVE EOI COMMAND 
000C =14 $4  POLL_PIC EQU OCH ,POLL PIC COMMAND 
OCOA = 95 READ_IRRB EQU QAH | PIC READ-IRR COMMAND 
0040 = G6 RTC_DONE EQU 40H 7MASK FOR REAL“TIME CLOCK INTERRUPT 
0066 =4 $7 RTC_INT_S=zOI EQU 6CH+6 *COMMAND TO EOI RTC INTERRUPT 
0086 = 4 9s RTC_INT EQU SOH+4 7POLL COMMAND RETURN IF INTERRUPT 
= 99 
0001 = 100 CH1_DONE EQU O1H 7RX CHANNEL 1 DONE 
0002 =4 101 CH2_DONE= EQU O2H 7RX CHANNEL 2 DONE 
0004 =1 102 CH3_DONE EQU 04H 7RX CHANNEL 3 DONE 
=4 103 : 
=1 104 
=4 105 ; | MISC. OEFINITIONS 
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Loc 08J LINE SOURCE 
=1 106 
0001 =4 107 MCFLAG EQU 01H MULTICAST BIT 
0007 =1 108 JUNK_BYTES EQU 7 SNUMBER OF RECIEVE JUNK BYTES 
109 
110 ee RANDOM - RETURN "RANDOM" NUMBER. 
111 ; 
112 ; THIS ROUTINE RETURNS THE VALUE OF THE REAL-TIME 
113 ; CLOCK TIMER IN THE 8253 
ee ; 
145 ; RETURNS: 
114 ; AX = TIMER VALUE. 
4A 
118 | 
119 PUBLIC RANDOM x 
0002 9C 120 RANDOM: PUSHF SAVE INTERRUPT FLAG 
0003 FA 121 Cor ;CLEAR INTERRUPTS 
0004 8000 122 MOV AL, LATCH _RTC 
0006 £6D3 123 OUT PITCMD/AL LATCH UP COUNT 
0008 £401 124 TN AL, PIT_RTC FREAD REAL-TIME CLOCK 
OOOA 83AE0 125 MOV AH, AL 
Gooc =401 126 IN AleP IT RTC 
QOOE 86ED 127 XCHG AH,AL 
0010 90 128 POPF 
0011 C3 129 RET 
130 
---- 131 CODE ENDS 
132 END 


ASSEMBLY COMPLETE, NO ERRORS FOUND 
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